home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / KillVeryAllDupes.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  79 lines
  1. /*
  2.     $VER: KillVeryAllDupes.zprx 0.9ß (25.7.94) Copyright (c) Jan Ritzerfeld
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's  Point,  mit  dem  man  auf
  5.     bequeme Weise Dupes in allen Brettern löschen kann.
  6.  
  7.     Sie erreichen den Autor wie folgt:
  8.  
  9.        Jan Ritzerfeld         Tel. : +49 2421 65177
  10.        Dornheckweg 9          EMail: j.ritzerfeld@darkness.gun.de
  11.        52355 Düren-Birgel
  12.  
  13.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  14.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  15.     nicht ohne Erlaubnis des Autors.
  16.  
  17.     Hinweise zur Installation:
  18.  
  19.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  20.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  21.     "F1:SYS:Rexxc/RX ZP:Rexx/KillVeryAllDupes.zprx %s" hinzu.
  22. */
  23.  
  24. parse arg zpPort
  25. address value zpPort
  26. options results
  27.  
  28. GUILOCK ON
  29. options failat 10
  30. signal on syntax
  31.  
  32. WHICHLEVEL
  33. level = result
  34. if (level ~= 'BOARDMENU') then
  35.   BOARDMENU
  36. GUILOCK ON
  37.  
  38. dupboards = 0
  39.  
  40. JUMPTOBOARD 1
  41. rc = 1
  42.   do while rc
  43.   BOARDINFO PATH
  44.   if exists(result'/messages.zp') then
  45.   do
  46.     ENTERBOARD
  47.     GUILOCK ON
  48.     DELETEDUPES
  49.     if rc then
  50.       dupboards = dupboards+1
  51.     GUILOCK ON
  52.     BOARDMENU
  53.     GUILOCK ON
  54.   end
  55.   DOWN 1
  56.   end
  57.  
  58. if (dupboards = 0) then
  59.   REQUESTNOTIFY 'Keine Dupes gefunden'
  60. else
  61.   do
  62.   if (dupboards = 1) then
  63.     REQUESTNOTIFY 'Dupes in 1 Brett gefunden'
  64.   else
  65.     REQUESTNOTIFY 'Dupes in 'dupboards' Brettern gefunden'
  66.   end
  67.  
  68. GUILOCK OFF
  69.  
  70. exit
  71.  
  72.  
  73. syntax: /* Ein Fehler ist aufgetreten ! */
  74.  
  75. REQUESTNOTIFY 'Schade auch, Fehler in Zeile' SIGL ':' ERRORTEXT(rc) ':-('
  76. GUILOCK OFF
  77.  
  78. exit
  79.